home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / stefanb_src.lha / TeXDME2 / rexx / SetTeXFormat1.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  339 b   |  14 lines
  1. /* SetTeXFormat1.dme V2.00 18.12.1989 SB */
  2. res=GetEnv('texformat')
  3. IF res='' THEN res='lplain'
  4. res=Request(50,50,'Enter name of the TeX formatfile',res,,'CANCEL')
  5. IF res='' THEN RETURN 0
  6. CALL SetEnv 'texformat',res
  7. IF SHOWLIST('Ports','AmigaTeX')~=0 THEN
  8.  DO
  9.   ADDRESS 'AmigaTeX' 'Exit'
  10.   StartTeX
  11.   IF RC=10 THEN RETURN 10
  12.  END
  13. RETURN 0
  14.